home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_100 / 162_01 / fmdx.c < prev    next >
Text File  |  1985-08-19  |  512b  |  37 lines
  1. /*    file fmdx.c
  2.     "float multiply/divide by X"
  3.     implemented here with X = 10    */
  4. #asm
  5.     NAME    ('FMDX')
  6.     INCLUDE    DEQ.MAC
  7. #endasm
  8.  
  9. float    fdten(fexp)    /* float divide by ten */
  10. float    fexp;
  11. {
  12. #asm
  13.     .Z80
  14.     LDR.FV    FE10
  15.     EQUJPS    .FDIV,ST.MDX
  16.     .8080
  17. #endasm
  18. }
  19.  
  20. float    fmten(fexp)    /* float multiply by ten */
  21. float    fexp;
  22. {
  23. #asm
  24.     .Z80
  25.     LDR.FV    FE10
  26.     EQUJPS    .FMUL,ST.MDX
  27.     .8080
  28. #endasm
  29. }
  30.  
  31. #asm
  32.     EXTRN    CMDBYT
  33.     .Z80
  34. ST.MDX:    EQUJPS    ,FLSD.U##,QUIK.1##
  35.     .8080
  36. #endasm
  37.